screen 19,8                 ''Bildschirmfläche 800x600

dim as double x,y,w,s,e     ''doppelte Genauigkeit
dim as single z

s=1                         ''Schrittweite in der Sinusreihe; s verändert Form der Pulse.
e=50                        ''Maximale Zahl an Reihengliedern; bei s=1 sind es e Glieder, bei s=2 maximal e/2+1 Glieder.

FOR x = 0 TO 14 STEP 0.0005 ''x von 0 bis größer 4*Pi

for z=1 to e step s         ''alle Glieder der Reihe werden einzeln berechnet
y=-1/1*sin(z*x)             ''Minus, weil im Koordinatensystem auf dem Monitor y nach unten zeigt
w=w+y                       ''Summe aller berechneten Glieder
next z

PSET (x*60,300+s*300/e*w),15    ''Zeichnen der Punkte x,w
w=0

NEXT x

sleep 5000                  ''5 Sekunden Pause / Bild anzeigen
end 0